Leonardo the Inventor/Leonardo The Inventor (93026)(Broderbund)(Riverdeep)(2004).iso/LEOWINMV/INDEX.DIR/00060_Script_INDEX TO INVENTORY

Text File | 1996-03-14 | 1KB | 39 lines

-- ------------------------------------------------------------
-- Handler goIndexToInventory goes to the frame in the inventory
-- movie of the box in the grid that was clicked.

on goIndexToInventory Horiz,V,numColumns,numRows,dataName
  set column=getcolumnValue(Horiz,left(),numColumns)
  set row=getrowValue(V,top(),numRows)

  -- get the number of the box in the grid that was clicked.
  set aserial=getserial(column,row,numColumns) +1

  -- get the name of the invention in the box
  set inventionName = line aserial of the text of cast dataName

  if not (inventionName = "") then
    -- they clicked on a button and not on empty space
    HiliteIndexChoice column,Row,numColumns,numRows

    -- set the currentInvention so handlers like goMenu etc
    -- will work in the next movie.
    global currentInvention
    set currentInvention = inventionName

    setInventoryContinue(the frame, the movieName)
    go frame inventionName of movie "Gallery"
  end if
end

-- ------------------------------------------------------------
-- Handler indexFramePause:
-- (1) unhilites the last hilited button
-- (2) sets the index page to return to
-- (3) loops the frame.

on indexFramePause
  hideIndexhilite
  setIndexPage
  Pauseframe
end